“Sor NOTES 
BY R.A.HILSMANN 


Another look back at one of the 
programs you have found here in 
SMUG BYTES. This time the RECOVER 
program will be updated. As I men- 
tioned before, "Haste makes waste", 
this is still another good demon- 
stration of it. 


When I looked at the program at 
the time I thought it was ready for 
this column, I figured I covered it 
all, but I forgot to consider the 
folks with single sided drives. 
Sorry about that. This new version 
will take care of it, and cover 
some more quirks the old program 
had. This version will restore a 
disk so that it can be used again, 
of course you would loose any disk- 
space which has exited into another 
computer world, but if there is any 
diskspace left on the disk, one 
could again save/ to it. 


Another area has been covered by 
John Dliger in his latest version 
of his operating system, namely an 
ERASE feature. If you have a cor- 
rupted program on the disk, you 
could either try to save that por- 
tion which is still intact with 
this program, or erase it from the 
disk using his new version. 


What is RECOVER really designed 
to do, you may ask? Its major func- 
ticn is to restore the disk direct- 
ory ones corrupted by either an ac- 
cidental format process, which you 
have stoped just in time to leave 
some or all data otherwise intact, 
or if you have a bad program, which 
includes data as variables saved 
along with the program, you may now 
recover such variable data seperat- 
ely. Maybe, it should work to some 
degree at least, even save uncor- 
rupted portions of a program. How 
much good this would do is just 
speculation, but what does one have 
to loose? I am sure someone will 
try it in time. 
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* DISK RECOVER PROGRAM 1.3 


x FoR SAFE pos (5003: = 
x 1988 IMPEX SOFTWARE = 
x FOR PUBLIC DOMAIN = 
x BY R.A. HILSHANN x 
XXXXxrxttirxxiiiixirkkrxxrxixximx 


15 LET AHzà: PAPER A: INK 9: Bo 
RDER A: CLS DIM A$(5121): DI! 
B$i15!): DIM C$(183,2Q): LET D5- 
": LET FLzH: LET O=A: LET T=ig: 
LET Br=5: GO SUB BP: PRINT AT T 
,0;"Rnsuer a feu questions below 


ga INPUT "Do you need to creat 
€ a neu rae n an the dam 
aged disk 7"77^"^*' Yes Nol!';:ü5: 
z &üs-z"n" OR g$z"N" THEH LET FL 
ES INPUT “Are your drives doub 
LE sided’ ’‘"ivyesvnHoi “jag: LET E 
=CODE 5$: IF K96 THEN LET K=K-3 
2g: LET S$=CHRS K 
3a CLS : GO SUB BP: PRINT AT T 
,0;"Insert disk into drive of uo 
ur choice and enter drive numbe 
fè below, ~“ 
40 IF HOT FL THEN PRINT “Disk 
will be processed to receive a 
temporary directory" 
58 GO SUB BP: INPUT “WHICH CRI 
UE 2-001 TE Ar URS DET  vspzt-i1 
68 IF NOT Fi THEN GO SUB BEP: I 
NEUT "ENTER NEL DISK NAME »";B5 
70 IF NOT FL THEN CLS : GO SUB 
EP: PRINT AT T,O; "DISK WILL BE 
PROCESSED NOU" YA “PRESS ENTER WHE 
HÉ READY": PAUSE O 
8A CLS : cn SUB BP: PRINT RT T 
Ti FLASH i; "ane moment please!" 
FOR 1 TO 167: LET C$(A,1i TO 1 
Q)=“CYL # " +STA$ A+" pes EET, C$ 
(A,I1I TO 1=CHR$ 3+CHR$ G+CHAS ZO 
+°Uh CLS "4CHR$ 24+CHRS B+CHAS E 


i 
50 IF A=i THEN LET C#(A,19) =CH 


198 NEXT LET K=1: GO SUB ise 
165 IF CODE 5S$«38 THEN GO TO iz 


5 

110 FOR xX=2 TO 167 STEP 2: LET 
CSiX,l18)zCHR$ K: LET CH (xX41,15:= 
CHR k: LET K=zK+1: NEXT X 

128 FOR x=3 TO 167 STEP 2: LET 
CHIX, 19) =CHRS 255: NEXT X: GO TO 
125 FOR Xz1 TO 167: LET C$ix,lf 
JSCHRS K: LET C$(X,19) =CHR$ 8: L 
ET K=K+1: NEXT X 

138 LET C$(163,1) =CHR 123: IF 
FL THEN Gà Ta 198 

140 GO Tū i88 

158 RESTORE 1850: FOR X=26715 TC 
26034: READ A: PORE X,A: NEXT > 

RETURN 
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Por! DATA z05,10,0,237, 176,285,1 

,18,223,42,75,92, 17, 18, 28,25,1 

55 16, 38, 1,15,0,24,232,42,75,92,1 
,43,20,25,17,32,38,1,19,123.24,2 

17,42,75,92,17,12,0,25,17,0,02,1 
,0,20,237,176,201,42,75,82,17,1z2 
,8,25,1,8,28,62,229,237, 161, 22:2 
170 DATA 237,1 32,248 E 161 


E et E 13/20,,0,20,25 62, 


T. 

180 RANDOMIZE USR 26739: RANDOM 
IZE USR 26724 

198 LET DR=0: LET PR=0: LET LEN 
GTH=0: CLS : GO SUB BP: PRINT AT 
5,0; "DAMAGED DISK WILL BE CHECK 
ED FOR INTACT CATA HOW, PLEAS 
E FOLLOU THE PROHPTS"''"PRES 
5 ENTER UHEH READY": PAUSE 0: LE 
T NEXT=1 

200 ON ERR GO TO 298 

210 GO SUB 478: LET ZzZ+12: FOR 
XzNEXT TO 167: LET Fi=i: LET CY 
LzX: PRINT AT DO,25;"CYL ";X: LET 
D£z"CYL # “4+5TR$£ X: LOAD »;D£$£CüD 
E Z: IF CODE H$ii)z229 AND CODE 
A$i5120) =229 THEN GO SUB BP: LET 
FLzO: CLS : PRINT AT T,0; "CYLIN 
DER ";X;" IS NÒT RECOUERABLE"^*" 
OR THIS I2 THE END OF DATA ON 
THIS DISK'"''""PRESS ZERO (@1 TOR 
ESTORE DISK OR EXIT PROGRHHM"''" 
OR ANY OTHER KEY TO CONTINUE ": 
PAUSE O: IF INKEY#="8" THEN GO T 
D 4928 

220 IF NOT Fi THEN NEXT X 

230 CLS : GO SUB BP: PRINT AT T 
,UO; "CYLINDER ";x;" IS LOADED NOU 
"U'**"PRESS KEY TO VIEN DATA ": PA 


240 CLS : RANDOMIZE USR 28754: 
GO SUB BP: PRINT RT 20,0; INUERS 
E 1; "PRESS iP) TO VIEW IN DATA F 
GRMAT ONE (il! TO VIEW NEXT CYLIN 
DER “;8O; PRESS ZERO i8) TO RES 
TORE DATA ": PAUSE GO: IF INKEY$= 
"1" THEN GO TO z88 ' 

258 IF INKEYS="P" OR INKEY $='p" 
THEN LET FL=@: CLS : PRINT #a;" 
PRESS ZERO i8) TO RESTORE DATA " 
: FOR S=1 TO 5128: ON ERR GO TO 
308: PRINT H£i51;: IF INKEYS="1" 


kò 
268 IF INKEY$="8" THEN GO TO 31 


270 IF NOT FL THEN NEXT S 
288 LET FL=0: NEXT x: STOF 
298 ON ERR RESET : NEXT X 
SOU x NOT FL THEN ON ERR RESET 


310 ON _ERR RESET : LET FL=0: CL 
& : GO SUB BP: PRINT AT 3,6; “WHA 
T KIND OF DATA IS IT quer veis BA 
SIC"''"B! NUMERIC DATA "''"31 ST 
RING DATA "''"4) MACHINE CODE "' 
““5i STATE OF HRHCHINE"''"&1! VARI 
ABLES" ‘’"?)i PART OF PREVIOUS DAT 
A "''"B81 RESTORE PREU. DATA SEPE 
RATELY": LET PzK: INPUT K: IF K= 
8 THEN LET FL=i: LET K=P 

315 IF <7 THEN LET LENGTH=O: L 
ET PROG=0: LET CL=i: IF NOT FL T 
HEN LET DE=DCA+1 
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318 IF FL THEN LET XzX-1: PRINT 
HT O,z25,"CYL ";X: GO SUB 478: L 
ET Z=Z+12: LET D$="CYL # “+5TR$ 
: LOAD /D£CODE Z 

320 IF K=5 THEN GO TO 420 

S25 IF P<? AND K=? THEN LET PR= 


230 CLS : LET A=USR 25770: LET 


G4Q IF B8»0 THEN PRINT ''" TOTAL 
BYTES SAVED=";A4+LENGTH: GO TO 3 


a 
o45 IF FL THEN GO TO 360 

250 IF NOT FL ANG A«=O0 THEN LET 
CL=CL+1: PRINT AT D25 CVE "X 
41: LET LENGTH=LENGTH+LEN R£-1: 
LET XzX41: GO SUB 470: LET Z-Z41 
2: LET D$z"CYL # "4S5TR$ X: LOAD 
/D$CODE Z: GO TO 246 
368 IF PR AND K-7 THEN LET K=PR 


“$70 IF K=i THEN LET N=USR 26795 
: PRINT ''"PROGRAHM LENGTH="; N+LE 
NGTH+1;" BYTES": LET PROG=N+LENG 


380 IF K>i THEN LET N=USR 28812 
: PRINT ““" DATA LENGTH="; N+LENG 
TH+1;" BYTES": LET PROG=N+LENGTH 


a 
380 NEXT N: STOP 
488 LET D$=CHA$ (K-l): IF K=zi T 
HEN LET D$=D$+CHR$ (PROG-25856zINT 
(PROG,25611+CHA$ (INT (PRüG/256 
JI+CHR$ C+CHR$ B4+CHR$ (PROG-ZSE 
ZINT iPRüOG/2561)4«CHR$ (INT (PROG 
SESBII+CSICYL,IS TO 191+CHAS$ CL: 
LET pé Da TO 28) =D$: LET NEX 


410 iE- K=2 OR K=3 OR K=4 OR K-& 
THEN LET D$=D$+CHR$ (PRüG-zz&6z 
NT (PROG,ZS61]+CHR$ (INT (PROG: 
561) +CHR$ G+CHA$ I28+C$iCyYi,i6 
O 191!+CHR$# CL: LET C$iCR,ii TO 
@i=D3: LET NEXT=CYL+CL 

420 IF K=5 THEN LET D$=D$+CHR$ 
O+CHE$ 1S4+CHR$ O+CHR$ G2+CHAR$ 2 
GO+CHR$ 44C$ZiCYL,18 TO A2 TEES. 
T: LET C$iDR,ii TO 20) =D$: LET 
Let. EEF NEXT = CYL4CL 

425 IF FL THEN GO To 51a 

430 GO SUB 502: GO TO 220 

440 LET DR=DR+1: LET CHIDR,41)=C 
HRS i28 

450 RANDOMIZE USR 268739: CAT 
460 STOP 

470 LET Z=PEEK 2E3627+2564+FEEK 2 
3628: RETURN 

450 GO TO S 

4230 ON ERR RESET : IF CyYb:0 THE 
N CLS : PRINT AT T,0; "BO YOU UIS 
H TO HAVE DIRECTORY RESTORED 7? 
IYAN)": PAUSE O: IF INKEY $2"Y" 
OR INKEYS$="y" THEN GO TO 44a 

495 STOP 

588 GO SUB 438: PRINT tO; "PRESS 
ANY KEY TO CONTINUE ": PAUSE a: 
RETURN 

510 LET FL=0: CLS : PRINT AT T, 
ū; “LOADING LAST DATA UIEUED"': G 
O SUB S588: GO TO 200 


hihi 


Um 


e 
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Thats all folks! Now if you have 
never entered the program, just do 
it. For those who have entered it 
previously, you may just update the 
program line by line. I dont know 
which would be easier. Now as how 
to to use the RECOVER program? 


Practice makes perfect! Copy a 
disk with data on it, then CAT the 
disk using; OPEN# 2,"P", this will 
dump the catalog to the printer. 
Dont forget to CLOSE# 2, after your 
done. This printout will help you 


when restoring the disk. Load 
RECOVER, and insert the copied disk 
into a drive, run the program 


following the prompts. 

After the first CYL has loaded, 
press <enter> as promted, and since 
you know whats on the disk, press 
"D" to recover! This will get you 
to a menu, which will ask you what 
type of data it is, just enter the 
number for the type data, even if 
the program is larger than 1 cyl. 

Now load the next cylinder, 
press "Ø" again, and if the next 
cylinder was part of the first 
section, enter ng for "Part of 
previous  data'. Naturally you 
should perhaps have a look at the 
data as it is loaded, so that you 
will recognize data like it in the 
future. 


After you have stepped through) 


all the data on the disk you will 
be asked if you wish to restore the 
directory, enter "Y" for yes, and 
the new directory should be on the 
disk now, the program will catalog 
the disk now, to make sure. 

Program names will be CYL # 1 
etc. just change the names using 
RESTORE/ "CYL # 1" to “NEW NAME". 
After you'r done the disk should be 
restored to its previous state. 

As the program loads individual 
cylinders the program will display 
in the upper right corner of the 
screen "CYL #", where # is the 
number of the cylinder being 
loaded. This is it, nothing to it. 
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Now something else, sometime in 
the past I said; "I used all the 
memory up in the MENU LOADER!" You 
did not really believe me, did you? 
Well here is the latest version, it 
features PAGING, forward and back- 
wards, now don't you think this 
calles for a reprint? 


That's what Bud Dankert thought 
at least, he came over the other 
day and probably thought he did not 
see right when he looked at the 
screen. I think this should do it 
for a while though, geeez there is 
only so much a guy can do with 1.4K 
“Write it all in machine code"!!?? 
come on guys, remember the days of 
the ZXB1 or the 1000? How much time 
we spend then to load a program! 


How fast one forgets! "The good 
old days", wonder if there is still 
someone out there using the darn 
thing? By the way, my thanks to all 
the readers of SMUG BYTES for all 
the nice letters you had send me. 
It really encourages a guy to keep 
on writing. This Newsletter must 
really get around, I get mail from 
all corners of the US. Keep it up, 
I like it. 


While your at it though, give me 
some hints of what kind of articles 
or software you would like to see 
here, one of these days I will run 
out of ideas, most unlikely the XYL 
would probably Say. Oh, "XVL" 
stands for "ex young lady", that's 
what we call wifes in Amateur Radio 
Circles ("Ham Radio" for all of you 
who don‘t know what Amateur Radio 
means), just kidding. 


Well this should be it, hope all 
of you don't mind a few reprints? 
For the next issue of this News- 
letter I hope to have VU-Calc 
ready, almost forgot about that 
one. Hope it is still worth the 
effort, I have the feeling every- 
body is in to OL'ing nowadays. 


Have fun your #3 (Rudy). 


JULY 1988 


| 
| 
og 
| 
| 
| 


145>REM IMPEX1.9 

28 CLEAR : LET A=NOT PI: LET E CL 

=A: LET C=A: LET Dan. DIM Aas (UAL 5 Je 
"178",URL “2Q7): DIM BS(URL “32 
“47 DIM CSIVAL "598"): LET O=A: 

INK URL "9": PAPER SGN PI: BORDE 

R SGN PI: CLS : LET E-PEEK VAL” 

23635"4VAL "255"4PEEK URL "23685 


TRKS, COLD E Ag (VAL “UAL UAL ; Lee 


aL’ “ann 3VAL hen: Li nje FREE a3 ; CODE 
ASIVAL "i78",URL "5")sURL "5";"K 


æ m æ — — — — — — —— — — — — — — — — — ———— ——— m 


---"; LET IsvAL "2": GO TO URL " 
4 


30 POKE 32768,K-2564INT iK^/255 
3: POKE 32763, INT TK 7/2551: RETUR 


40 IF B2 THEN BEEP .08,35: LE 


Ès a fan d d 
T J=z5GH PI 


50 PAUSE VAL "2": LET G=INT PI 
LET H=0: IF F-I>=VAL "18" THEN 
‘LET Jzd4URL "i8": GO TO VAL “78 


680 LET J=F+5EN PI 
ZO LET K=PEEK SE2768+2564PEEK 2 
2769: FOR /I TO J 
88 RANDOMIZE USR (E464): PRINT 
AT G,B; A$(A-1. TO 10);TRB 14;D$ 
(E411; TAB 21;: IF NOT B AND D+1E 
4 THEN PRINT @;: GO TO 188 
9@ PRINT D; 
180 PRINT TAB Z5;",";C: LET G=6 
41: IF H THEN RETURN 
à : : ti 


GO SUB 30: GO SUB 148 
i2@ IF A-1<=F THEN LET I=A 


1480 LET G=3: LET H=1: FOR ZI TO 
J: PRINT AT 6,8; PAPER 5; OVER 
1;B$: PAUSE @: LET Q=CODE INKEYS 

: IF @=13 THEM GO TO VAL "188" 
145 IF @=49 THEN LET K= K+VAL US 
6a": GO TO VAL "2828" 

158 PRINT AT 6G,80; INVERSE ©; BS: 
GO SUB 6a 

155 IF @=5@ AND J:VAL "20" THEN 
LET KzK-URHL "388": LET J=J-VAL 
“ZA'-(d-Ti: GO TO VAL "288" 

160 NEXT 

170 PRINT AT 3,8;C$: IF A:F THE 
N RANDOMIZE USR E: LET I=VAL "zz" 
: LET A=I: 60 TO VAL “4g” 

18@ RETURN 

19@ LET L$=A$iA-SEH PI, TO VAL 
"10"): GO SUB VAL “198"4CODE Ast 
A-SGN PI VAL “11"1456N FI 

191 LOAD -L#: STOP 

192 LOAD svi$ DATA A): STOP 

193 LOAD si$ DATA BSii: STOP 
194 LOAD si$CODE : STOP 

195 LOAD si$ABZ 

1986 LOAD svi$VAL : STOP 

200 LET Hzd455H PI: GO SUB VAL 
R SUB VAL "170": GO TO VA 


“Then when he empties the in-basket, he's rewarded with a paycheck. ." 


JULY 1988 6 SMUG Bytes 


